UC知道[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
来源：百度知道 编辑：UC知道 时间：2024/04/30 23:47:51
看看我的代码吧
出错的那行就是
Conn.Open Session("RiseManager_ConnectionString"),"sa",""
------------------------------------------------------
If User <> "" Then
RSSql = "SELECT a.Id,a.Email,a.Name,a.PrivateKey,b.Id as Dept_Id,b.Name as DeptName From EmployeeDefine a,DepartmentDefine b Where a.Department_Id=b.Id And Email = '" + Trim(User) + "'"
Set Conn=CreateObject("ADODB.Connection")
Set RS=CreateObject("ADODB.Recordset")
Conn.Open Session("RiseManager_ConnectionString"),"sa",""
RS.Open RSSql,Conn,3,1
If Not (RS.EOF And RS.BOF) Then
If UCase(RS("PrivateKey")) = UCase(PrivateKey) OR ((RS("PrivateKey")="" OR IsNull(RS("PrivateKey"))) AND PrivateKey = "") Then
Session("User_Id")=Rs("Id")
Session("User")
出错的那行就是
Conn.Open Session("RiseManager_ConnectionString"),"sa",""
------------------------------------------------------
If User <> "" Then
RSSql = "SELECT a.Id,a.Email,a.Name,a.PrivateKey,b.Id as Dept_Id,b.Name as DeptName From EmployeeDefine a,DepartmentDefine b Where a.Department_Id=b.Id And Email = '" + Trim(User) + "'"
Set Conn=CreateObject("ADODB.Connection")
Set RS=CreateObject("ADODB.Recordset")
Conn.Open Session("RiseManager_ConnectionString"),"sa",""
RS.Open RSSql,Conn,3,1
If Not (RS.EOF And RS.BOF) Then
If UCase(RS("PrivateKey")) = UCase(PrivateKey) OR ((RS("PrivateKey")="" OR IsNull(RS("PrivateKey"))) AND PrivateKey = "") Then
Session("User_Id")=Rs("Id")
Session("User")
你用的SQL2000吗，升级到SP3或SP4了没有？
如果你是用JSP开发且没有升级，那么请先升级；如果已经升级了，那你换一个驱动。
如果你是在其他开发环境下开发，那可能是SQL 2000没有装好，可能要重装了。
--------------------------------
你的代码里面好像没有登录密码耶.
考虑下数据库权限
大汗~~~~~~~~~~~………………
dsn 连接测试通过了吗?
综合一二楼的试~吧！